用VB编程 x>y时用函数求x-y，x<y时用过程求x+y

来源：百度知道 编辑：UC知道 时间：2024/06/15 08:34:21
这是一道vb编程题 ，有些东西我还没有学到，请高手给出完整的答案 。

Option Explicit

'需要控件：command1
Private Sub Command1_Click()
Dim X As Long, Y As Long
X = 10: Y = 20
If X > Y Then
Call FunXY(X, Y) '调用过程
ElseIf X < Y Then
Call SubXY(X, Y) '调用函数
End If
End Sub

'过程
Private Sub SubXY(X As Long, Y As Long)
MsgBox X + Y
End Sub

'函数
Function FunXY(X As Long, Y As Long)
MsgBox X - Y
End Function

if x>y then
xdy;
else
xay;
end if

sub xdy()
return x-y;
end sub
sub xay()
return x+y;
end sub

//x-y 函数处理部分
sub minus()
return x-y;
end sub
//x+y 函数处理部分
sub add()
return x+y;
end sub
//主函数部分
if x>y then
xdy;
else
xay;
end if

什么意思
if x>y then
z=x-y
elseif x<y then
z=x+y
else
end if
不就行了